unit oFormRunProperties;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, oFrameRunProperties, oManager;

type
  TFormRunProp = class(TForm)
    aFrame: TfRunProperties;
    procedure aFramebtnCancelClick(Sender: TObject);
    procedure aFramebtnSaveClick(Sender: TObject);
  private
    { Private declarations }
    aMaster: TManager;
  public
    property Master: TManager read aMaster write aMaster;
    { Public declarations }
  end;

var
  FormRunProp: TFormRunProp;

implementation

uses
  oProcessItem, oProcessObjectConstants;

{$R *.dfm}

procedure TFormRunProp.aFramebtnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFormRunProp.aFramebtnSaveClick(Sender: TObject);
begin
  aMaster.ProcessObject(TProcessItem.create(PO_RUNPROP_EDITOR_GET, nil));
end;

end.
